home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-websites-
/
wirenet
/
files
/
thor25_arexx.lha
/
Examples
/
Progress_ex.thor
< prev
next >
Wrap
Text File
|
1995-09-06
|
1KB
|
69 lines
/*
**
** Progress_Ex.thor - Example script for the progressbar functions in THOR 2.0
**
*/
options results
if(substr(address(),1,4) ~= "THOR") then do
parse arg thorport
if~(show(p, thorport)) then do
if ~(show(p, "THOR.01")) then do
say "No THOR port found!"
exit
end
else thorport = "THOR.01"
end
end
else thorport = address()
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
signal on ERROR
address(BBSREAD)
GETBBSLIST stem BBSLIST
if(rc ~= 0) then
do
address(thorport)
REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
exit
end
address(thorport)
THORTOFRONT
OPENPROGRESS TITLE '"Progress Test"' AT '"_Abort"' PCW 30
if(rc = 0) then
do
window = result /* Important !!! */
do i=1 to BBSLIST.COUNT
/* Display bbsname and reset progressbar.*/
UPDATEPROGRESS REQ window TOTAL 50 PT '"'BBSLIST.i'"'
do n=1 to 50
/* Update progressbar 50 times for each bbs */
UPDATEPROGRESS REQ window CURRENT n
if(rc ~= 0) then do
/* Check if user aborted */
CLOSEPROGRESS REQ window
window = 0
leave
end
end
end
end
ERROR:
if(window ~= 0) then CLOSEPROGRESS REQ window
exit